*------------------------------------------------------------------------------*
* Family history - Dinas, Fouka, Schläpfer - JoP
*------------------------------------------------------------------------------*

*------------------------------------------------------------------------------*
* Figure D4 and D5
*------------------------------------------------------------------------------*



use greece, clear

rename asiaminor expellee

replace expellee=2 if expellee==1

keep donate amount T expellee
gen study=0

tempfile tempgr
save `tempgr'


use germany, clear

rename t1 T
keep donate amount T expellee
gen study=1

append using `tempgr'


label define studylabel 0 "Greece" 1 "Germany"
label values study studylabel

label define expelleelabel 0 "Other" 1 "Expellee" 2 `""Asia" "minor""'
label values expellee expelleelabel

label define Tlabel 0 "Control" 1 "Treated"
label values T Tlabel

graph bar donate, over(expellee) over(T) by(study, note("")) bar(1, color(gs9)) nofill ytitle("Share donations (in %)")


graph bar amount, over(expellee) over(T) by(study, note("")) bar(1, color(gs9)) nofill ytitle("Average donated amount (in Euro)")




*************************************************************************************
*other behavioral 

clear all

use greece, clear

rename asiaminor expellee

replace expellee=2 if expellee==1


keep pet incdec T expellee id


label define expelleelabel 0 "Other" 1 "Expellee" 2 `""Asia" "minor""'
label values expellee expelleelabel

label define Tlabel 0 "Control" 1 "Treated"
label values T Tlabel

graph bar pet, over(expellee) over(T) bar(1, color(gs9)) nofill title("Petition") ysc(r(0 0.5)) ylabel(0(0.1)0.5) ytitle("Share agreeing to sign (in %)") name(pets)

graph bar incdec, over(expellee) over(T) bar(1, color(gs9)) nofill title("Contact MP") ysc(r(0 0.5)) ylabel(0(0.1)0.5) ytitle("Share demanding increase (in %)") name(incdec)

graph combine pets incdec


